From 3882247e75a58e68235addd8adc4f9769b056568 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Tue, 3 Mar 2026 16:40:27 +0000 Subject: [PATCH] [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. Gbp-Pq: Name Version_2_6_15pre20 --- git.tag | 2 +- lsp/gcl_make_pathname.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/git.tag b/git.tag index 07737b03..f5f6d58a 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_6_15pre19" +"Version_2_6_15pre20" diff --git a/lsp/gcl_make_pathname.lsp b/lsp/gcl_make_pathname.lsp index 68808f6c..c8b947cb 100644 --- a/lsp/gcl_make_pathname.lsp +++ b/lsp/gcl_make_pathname.lsp @@ -25,7 +25,7 @@ (string-concatenate "(" (substitute #\^ #\! (subseq x 0 2)) (subseq x 2) ")"))) (cons #v"\\*" (lambda (x) #.(ads "([^/.]*)"))) (cons #v"\\?" (lambda (x) #.(ads "([^/.])"))) - (cons #v"\\." (lambda (x) "\\.")))) + (cons #v"[+|.^$()]" (lambda (x) (string-concatenate "\\" x))))) (defconstant +physical-pathname-defaults+ '(("" "" "") #+winnt("" "([A-Za-z]:)?" ":") #-winnt("" "()" "") -- 2.30.2